home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / HSBASIC2.DMS / in.adf / HB2Examples1.3.Lha / Examples / IFF_ILBM / UnPackRow.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-12  |  579 b   |  14 lines
  1.     DIM    unpackrow&( 30)
  2.     TAGLIST VARPTR(unpackrow&(0)),  _
  3.     &H206F0004&,&H2050226F&,&H82251&,&H242F000C&,&H262F0010&,&H6F00004E&,  _
  4.     &H51CA000C&,&H7000206F&,&H144250&,&H4E751018&,&H6B184880&,&H6400001&,  _
  5.     &H94406BE8&,&H96406BE4&,&H534012D8&,&H51C8FFFC&,&H601EB03C&,&H806718&,  _
  6.     &H44004880&,&H52405342&,&H6BCA9640&,&H6BC61218&,&H534012C1&,&H51C8FFFC&,  _
  7.     &H4A4360B0&,&H246F0004&,&H2488246F&,&H82489&,&H70FF206F&,&H143080&,  _
  8.     &H4E750000&
  9.  
  10.     LIBRARY OPEN "exec.library"
  11.     IF PEEKW(LIBRARY("exec.library")+20) >= 37 THEN
  12.             CacheClearE VARPTR(unpackrow&(0)), 124 , &h808&
  13.     END IF
  14.